home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / proc.exchange < prev    next >
Text File  |  2009-01-03  |  139b  |  7 lines
  1. 0300 PROC EXCHANGE(REF X$,REF Y$) CLOSED
  2. 0310   DIM HELP$ OF LEN(X$)
  3. 0320   HELP$:=X$
  4. 0330   X$:=Y$
  5. 0340   Y$:=HELP$
  6. 0350 ENDPROC EXCHANGE
  7.